home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / funfont2.3 / bin / amirc / rexx / sendreq.amirx < prev   
Text File  |  1981-05-07  |  520b  |  27 lines
  1. /* Filesend  for AmIRC
  2. \\ By The Possessed Programmer: Tipop@concentric.net
  3. // Requestor selection added by: Tjomme andy@bjuv.mail.telia.com
  4. \\ USAGE: /rx Send
  5. //
  6. \\ Put this script in PROGDIR:rexx/
  7. // and send any text file through
  8. \\ AmIRC
  9. */
  10.  
  11. ;Arg filename
  12.  
  13. Address Command "Requestfile Amirc:fansi/ >T:Option"
  14. Open("Option", "T:Option", "R")
  15. file = READLN("Option")
  16. Close("Option")
  17. If file="" Then Exit
  18. file = Substr(file,2,Length(file)-2)
  19. Open(0,file,"R")
  20. Do until Eof(0)
  21.    line=readln(0)
  22.  
  23.    'SAY' line
  24.  
  25. End
  26. EXIT
  27.